home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 March
/
EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso
/
earcd
/
grafica
/
amicad
/
amicad.keys
< prev
next >
Wrap
Text File
|
1999-01-01
|
1KB
|
38 lines
AmiCADKeys 1.0
[FunctionKeys]
F1="SETGRID(5)"
F2="SETGRID(10)"
F3="IF((PP=ASKTEXT("Composant?",""))<>"",PUTPART(PP,-1,-1):MENU("Placer"),0)"
F4="O=FIRSTSEL:WHILE(O,MACRO(5):O=NEXTSEL(O))"
F5="SETSCALE(O,1,2)"
F7="MARKZONE(0,0,WWIDTH(-1)-1,WHEIGHT(-1)-1)"
F8="IF(A=VAL(ASKTEXT("Caractère ?","")),SETTEXT(FIRSTSEL,READTEXT(FIRSTSEL)+CHR(A)),0)"
F10="L="Symboles_TTL":REMLIB(L):LOADLIB(L):PUTPART( "74LS440", 30,30)"
[Macros]
ctrl-q="CLOSE(SELSHEET(-1))"
shift-1="SETDEV(FIRSTSEL,1)"
ctrl-1="DRAWMODE(1)"
shift-2="SETDEV(FIRSTSEL,2)"
ctrl-2="DRAWMODE(2)"
shift-3="SETDEV(FIRSTSEL,3)"
ctrl-3="DRAWMODE(3)"
shift-4="SETDEV(FIRSTSEL,4)"
shift-5="SETDEV(FIRSTSEL,5)"
shift-6="SETDEV(FIRSTSEL,6)"
shift-7="SETDEV(FIRSTSEL,7)"
shift-8="SETDEV(FIRSTSEL,8)"
alt-o="SETTEXT(FIRSTSEL,READTEXT(FIRSTSEL)+CHR(139))"
alt-e="EDIT(FIRSTSEL)"
alt-i="LOADCLIP(1,"Etape initiale"):MENU("Coller")"
alt-t="CALL("EditString")"
alt-p="LOADCLIP(1,"Etape"):MENU("Coller")"
alt-u="WHILE(FIRSTSEL,UNLINK(FIRSTSEL))"
alt-v="LINKVAL(FIRSTSEL,NEXTSEL(FIRSTSEL))"
alt-r="LINKREF(FIRSTSEL,NEXTSEL(FIRSTSEL))"
alt-n="O=FIRSTSEL:WHILE(O,SETPINS(O,IF(SETPINS(O,-1),0,1)),O=NEXTSEL(O))"
ctrl-+="PENWIDTH(FIRSTSEL,PENWIDTH(FIRSTSEL,0)+1)"
ctrl--="PENWIDTH(FIRSTSEL,PENWIDTH(FIRSTSEL,0)-1)"
alt-<="CALL("EditString")"
alt-w="WTOFRONT(-1)"